home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs06.d81 / months.sda / MAC.INST (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  4KB  |  86 lines
  1. 28 POKE53280,15:POKE53281,1:POKE646,15:POKE53272,21
  2. 30 PRINT"[147][144]     [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  3. 32 PRINT"     [221][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][221]"
  4. 34 PRINT"     [221][221]                         [146][144][221][221]"
  5. 36 PRINT"     [221][221]                         [146][144][221][221]"
  6. 38 PRINT"     [221][221]       [146]   M A C          [146][144][221][221]"
  7. 40 PRINT"     [221][221]                         [146][144][221][221]"
  8. 42 PRINT"     [221][221]      M O N T H L Y      [146][144][221][221]"
  9. 44 PRINT"     [221][221]                         [146][144][221][221]"
  10. 46 PRINT"     [221][221]  A P P O I N T M E N T  [146][144][221][221]"
  11. 48 PRINT"     [221][221]                         [146][144][221][221]"
  12. 50 PRINT"     [221][221]     C A L E N D A R     [146][144][221][221]"
  13. 52 PRINT"     [221][221]                         [146][144][221][221]"
  14. 54 PRINT"     [221][221]      (VERSION 2.0)      [146][144][221][221]"
  15. 56 PRINT"     [221][221]                         [146][144][221][221]"
  16. 58 PRINT"     [221][221]                         [146][144][221][221]"
  17. 60 PRINT"     [221][221]                         [146][144][221][221]"
  18. 62 PRINT"     [221][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][221]"
  19. 64 PRINT"     [221]  C O M M O D O R E   6 4  [221]"
  20. 66 PRINT"     [202][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][203]"
  21. 68 PRINT"  [176][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][174]
  22. 70 [153]"  (null)                                 WAITSTOP(null)"
  23. 72 [153]"  (null) PRESS LETTER I FOR INSTRUCTIONS WAITSTOP(null)"
  24. 74 [153]"  (null)  ( PRESS RUN/STOP KEY TO QUIT)  WAITSTOP(null)"
  25. 76 [153]"  (null) PRESS ANY OTHER KEY FOR PROGRAM WAITSTOP(null)"
  26. 78 [153]"  /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP";
  27. 80 [161]KEY$:[139]KEY$[178]""[167]80
  28. 85 [139]KEY$[178]"I"[167][151]53280,6:[137]100
  29. 90 [137]340
  30. 100 [143] *** PROGRAM INSTRUCTIONS ***
  31. 105 [153]"LOAD      MAC INSTRUCTIONS                  WAIT";
  32. 110 [153]"STOP    ON ENTERING THE PROGRAM, PRESS THE"
  33. 115 [153]"  PROPER KEY (1-9 OR A-C)WAITSTOP TO SELECT THE"
  34. 120 [153]"  DESIRED MONTH. THEN ENTER THE FOUR   "
  35. 125 [153]"  DIGITS OF THE YEAR. MAC WILL THEN    "
  36. 130 [153]"  DISPLAY THE REQUESTED MONTH. YOU MAY "
  37. 135 [153]"  NOW CHOOSE THE FOLLOWING OPTIONS:    "
  38. 140 [153]"    A) VIEW ANOTHER MONTH.  WAITSTOP        "
  39. 145 [153]"  PRESS A. THEN REPEAT MONTH AND YEAR  "
  40. 150 [153]"  SELECTION AS BEFORE.                 "
  41. 155 [153]"    M) MEMO OPTIONS  WAITSTOP                "
  42. 160 [153]"  PRESS M. THEN SELECT (W) TO WRITE A  "
  43. 165 [153]"  NEW MEMO, (V) TO VIEW/EDIT A CURRENT "
  44. 170 [153]"  MEMO, OR (E) TO ESCAPE TO MAIN MENU. "
  45. 175 [153]"      W) WRITE A NEW MEMO.  WAITSTOP         "
  46. 180 [153]"  MAC PERMITS THE CREATION OF A MONTHLY"
  47. 185 [153]"  MEMO. A MEMO IS WRITTEN ONLY ON THE  "
  48. 190 [153]"  MONTH CURRENTLY VIEWED AND ONLY ONE "
  49. 195 [153]"  MEMO CAN EXIST FOR EACH MONTH. TO    "
  50. 200 [153]"  VIEW A SAMPLE MEMO AND ADDITIONAL    "
  51. 205 [153]"  INSTRUCTIONS, SELECT JANUARY 1989 FOR"
  52. 210 [153]"  THE MONTH AND YEAR, SELECT (M) FROM  "
  53. 212 [153]"   PRESS RETURN TO CONTINUE            WAITSTOP";
  54. 213 [161]KEY$:[139]KEY$[178]""[167]213
  55. 215 [153]"LOAD  THE MAIN MENU AND (V) FROM THE MEMO  "
  56. 220 [153]"  OPTION.                              "
  57. 225 [153]"      V) VIEW/EDIT A MEMO   WAITSTOP         "
  58. 230 [153]"  THIS OPTION ALLOWS YOU TO VIEW & MAKE"
  59. 235 [153]"  CHANGES TO THE MEMO CURRENTLY IN FILE"
  60. 240 [153]"  FOR THE MONTH CHOSEN. THE UPDATED   "
  61. 245 [153]"  MEMO IS THEN SAVED, REPLACING THE    "
  62. 250 [153]"  ORIGINAL.                            "
  63. 255 [153]"    P) PRINT OPTIONS  WAITSTOP               "
  64. 260 [153]"  MAC WILL ALSO PRINT A HARDCOPY OF   "
  65. 265 [153]"  THE CALENDAR AND MEMO FOR THE MONTH"
  66. 270 [153]"  BEING VIEWED. AFTER PRESSING P, THE  "
  67. 275 [153]"  PROGRAM CHECKS TO SEE IF THE PRINTER "
  68. 280 [153]"  IS READY BEFORE PROCEEDING.  IF THE  "
  69. 285 [153]"  PRINTER IS NOT READY, YOU HAVE THE   "
  70. 290 [153]"  OPTION OF ESCAPING BACK TO THE MAIN "
  71. 295 [153]"  MENU AND ABORTING THE PRINTOUT OR    "
  72. 300 [153]"  MAKING THE PRINTER READY AND TRYING"
  73. 305 [153]"  AGAIN. NOTE THAT THIS HARDCOPY IS    "
  74. 310 [153]"  FORMATTED FOR STANDARD 8.5X11 PAPER."
  75. 315 [153]"    Q) QUIT  WAITSTOP"
  76. 320 [153]"  PRESSING Q CLEARS THE SCREEN AND    "
  77. 325 [153]"  RELOADS THE DISK MENU.              "
  78. 330 [153]"   PRESS RETURN FOR PROGRAM            WAITSTOP";
  79. 335 [161]KEY$:[139]KEY$[178]""[167]335
  80. 340 P$[178]"MAC"
  81. 345 [153]"LOADLOAD"[199](34)P$[199](34)",8"
  82. 350 [153]"RUN"
  83. 355 [151]198,3:[151]631,19:[151]632,13:[151]633,13
  84. 360 [162]
  85. 365 [128]
  86.